use strict;
use warnings;

use Test::More tests => 2;

use HTTP::Response;

use lib qw(lib);
use MLB::Web;

my $actual = game_detail_request('2008_04_12_sdnmlb_lanmlb_1');
my $expectedUri = 'http://mlb.mlb.com/components/game/year_2008/month_04/day_12/gid_2008_04_12_sdnmlb_lanmlb_1/gamedetail.xml';
is($actual->method(), 'GET', "method");
is($actual->url()->as_string(), $expectedUri, "uri");
